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HELL FOLKS HERE HE ARE AGAIN AND THE FIRST THING I HAVE TO 
HO IS APOLOGIZE FOR THE DELAY IN THE NEHSLETTERS. HE OVER ESTIM- 
ATED THE ABILITIES OF THE F&ST C? F F X C £ AND NOH I HAVE TO 
REVISE OUR ESTIMATION OF THE TIME IT HILL TAKE FOR THE LETTERS 
TO GET TO YOU. HE ARE STILL TRYING TO GET THEM TO THE F>&ST 
OFF 1 C £ 'BY THE FIRST OF EACH MONTH AND THEN IT TAKES THEM 3 
TO 4 HEEKS TO GET THEM DELIVERED. HE MOULD LIKE TO GO TO FIRST 
CLASS BUT THE COST IS PROHIBITIVE , SO PLEASE SEAR HI TH US. 

EDITOR 

I*##****#*####*####**#*##*###**####*#*******##**##**#####***#**** 

FFCtM &£ FFhL. n F* M £ £ £ 

GERALD HRITES TO US HANTiNG SOME INFORMATION ABOUT MODEMS AND 
COMPUSERVE. 

FNSHER 

TO START HITH THERE ARE SO MANY DIFFERENT TYPES OF MODEMS OUT 
THERE THAT I CAN’T DESCRIBE ALL OF THEM. HERE ARE THE THINGS 
THAT I THINK YOU NEED IN A MODEM 2. RS-232 TYPE INTERFACE , 

HALF DUPLEX AND FULL DUPLEX MODE , 3. ORGI NATE AND ANSHER 
ABILITY , 4. AND SOME LIGHTS TO SHOH YOU HHEH IT IS HORNING. THE 
THO BASIC TYPES ARE I. DIRECT CONNECT = THIS PLUG INTO THE PHONE 
JACK AND 2. ACCOUSTICAL CONNECT - YOU PLACE THE HANDSET OF YOUR 
TELEPHONE IN THIS TYPE . BOTH TYPES NORK REAL HELL. 

NOH FOR COMPUSERVE , 2 KNOH THAT HE CAN RUN ON IT BUT I AM 
NOT UP ON EVERYTHING YOU CAN DO HITH THEM. TO GET THE FULL USE 
OF IT YOU NEED A HAY TO STORE THE DATA YOU GET (MY OPINION) AND 
THE BASIC MODEM PROGRAM HITH THE IM-1 DOES NOT ALLOH THIS RIGHT 
NOH , BUT I HAVE DEVELOPED A PROGRAM TO USE HHICH ALLOHS YOU TO 
PRINT AT THE SAME TIME YOU ARE COMMUNICATING HITH ANY COMPUTER. 

THE ONLY DRAH BACK IS THAT IT REQUIRES A SECOND SI-232 INTERFACE 
ON THE IM-2. HOPEFULLY IN THE NEAR FUTURE I HILL HAVE IT FIXED 
HHERE THE DATA CAN BE STORED ON TAPE AND DISC, 
ft! IF ANYBODY OUT THERE HAS ANYMORE INFORMATION ABOUT THIS OR 
EXAMPLES OF HHAT YOU ARE DOING HITH THE DIFFERENT COMPUTER 
SERVICES OUT THERE LET ME KNOH. 

F FOM FSC*N F &F£t X S 

RON NEEDS SOME HELP HITH SOME Z80 BASED MACHINE LANGUAGE 
PROGRAMS FOR TELETYPE-MORSE CODE PROGRAMS. HE HAS SOME THAT HE 
MOULD LIKE TO TRANSLATE TO 6800 BASED MACHINE LANGUAGE AND HAS 
HONDERING IF ANYBODY OUT THERE MOULD LIKE TO TRY. IF SO DROP A 
LINE TO US AND HE HILL TRY TO FORHARD IT TO FOF . THERE ARE 
SEVERAL MEMBERS THAT HANT THE SAME THING SO MAYBE YOU CAN ALL 
GET TOGEATHER ON IT. 

####### # ** # # # *# ■» # ##### # # ##■##• #### * * #* * ##* *#**## * 

S7A7£ M £ N T F73CHJT FFCtGFFM FFXHT 

SOME OF THE CHARACTERS ARE HARD TO MAKE OUT HHEN PRINTED IN THE 
COMPRESSED MODE SO HERE IS A PRINTOUT SHOHING HHAT THEY ARE///.' 

•* * , <> * < > „**■#. 4 * St 0 = () 

HOPE THIS HELPS YOU TO READ THE PROGRAMS BETTER.. 


EDITOR 
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#£*£ IS 0 IIS! OF SOME OF THE MOST COMMON PROBLEMS I HAVE HAD 
WITH THE JTM— 2 WHICH MILL HELP SOME OF THE MEMBERS. 

1. BROKEN MIRES IN THE MPA- 20 POWER PLUG. IF THE PLUG IS REMOVED 
A LOT you TAKE A CHANCE ON BREAKING ONE. SYMPTOMS VARY WITH 
WHICH WIRE IS BROKEN. 

2. THE POWER UNITS CAN OVERHEAT IF JUST LEFT PLUGGED INTO THE 
OUTLET. I WOULD SUGGEST PUTTING BOTH ON A EXTENSION CORD AND 
UNPLUGGING IT WHEN NOT IN USE. THIS ALSO PROTECTS THE UNIT FROM 
LIGHTNING. 

3. IF YOU HAVE A DISC DRIVE YOU NEED TO PUT IN THE POKE 26112,0 
TO TURN OFF THE MOTOR OR TURN OFF THE DISC DRIVE WHEN NOT IN 
USE TO EXTEND THE LIFE OF THE MOTOR. 

4. FOR THOSE WITH THE GAME CARTRIDGES BE SURE AND WAIT ABOUT A 
MINUTE AFTER TURNING OFF THE UNITS BEFORE REMOVING OR PLUGGING 
IN THEM OR THE BASIC INTERPRETER CARTRIDGE. 

**#**#*********#**#**#*****###***#**#******#**##*##**#****#***## 
FfiZ&M &£-&N CH£N 

ALAN WRITES TO US WANTING TO KNOW HOW TO DIVIDE S T Z H&S . 

IN MOST MACHINES THIS IS DONE WITH THESE COMMANDS 

L£FT*(A* ,#> * THIS IS USED TO GET A NUNBER(W) OF CHARACTERS FROM 
THE LEFT END OF STRING 

RIGHT*(A* ,H) * SAME AS LEFT BUT IT GETS CHARACTERS FROM THE 
RIGHT END OF THE STRING & . 

MID$(A* '#,*) - THIS IS USED TO RETREIVE DATA FROM THE MIDDLE OF 
THE STRING A*. 

NONE OF THESE COMMANDS ARE IN THE 1M-1 SO WE HAVE TO USE OTHER 
METHODS TO ACCOMPLISH THIS , HERE IS A SAMPLE PROGRAM SHOWING A 
VERY BASIC WAY 70 DO THE ABOVE. 

10 DIM A*(20) ,B*( 20) 

20 A*=" ABCDEF&HIJKLMNOPQRSTU" 

100 REM " THE AMOUNT OF DATA I WILL BE SEPARATING OUT OF && 
200 REM "IS DETERMINED BY THE SIZE OF IS & , IN THIS CASE 10. 
1000 REM "THIS GETS THE LEFT END (LEFT*)" 

1010 B**A*(0) 

1020 PRINT Bt 

2000 REM "THIS GETS THE RIGHT END (RIGHT*)" 

2020 B**A*<22) 

2030 PRINT Bfi 

3000 REM "THIS WILL GET THE MIDDLE (MID*)" 

3010 B**A*(5) 

9000 STOP 

FOR THOSE WANTING TO GET A LITTLE FINER CONTROL YOU CAN TRY 
USING THE ' LEN(A *)' COMMAND. THIS WILL GIVE YOU THE LENGTH OF 
’A*’ SO YOU CAN DIVIDE IT DOWN FURTHER. 

EXAMPLE OF THE USE OF THE ' LEN ’ COMMANDt 
5 DIM A*(50 ) 

10 A**" ABCDEFGH2JKLNN0PQRSTUVWX YZ" 

20 L*LEN(A*> 

30 REM "L WILL EQUAL 26 IF PRINTED" 

THE ' LEN ' WILL ONLY RETURN THE LENGTH OF THE PORTION OF A* 

WHICH CONTAINS DATA. 

REMEMBER THIS IS A VERY BASIC WAY OF DOING THIS SO DON'T BE 
AFRAID OF EXPERIMENTING WITH IT. IF YOU COME UP WITH SOMETHING 
THAT WORKS BETTER LET ME KNOW''////'/////'/'/'/'/''//'/'/'''''' 
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HERE IS A LIST OF CALL'S TO MARE SOME NOISE FOR YOU. 

CALL 27001 , CALL 27005 , CALL27006, CALL17007, CALL17014, CALL17027 

THE FOLLOWING ROUTINES ARE FOR USE IN MACHINE LANGUAGE PROGRAMS. 

HERE ARE SOME MACHINE LANGUAGE JSR ROUTINES FOR THE DISC DRIVE. 

2. SELECT DISK DRIVE 

LIMIT i SELECT DRIVE 0 OR 1 
SETUP s $A025 * $32 DRIVE 2 SELECTED 
$A025 <> $32 DRIVE 0 SELECTED 
JSR $68A7 
RE TURNS i NONE 

2. MOVE HEAD TO A SPECIFIED TRACK , SECTOR 
LIMIT i TRACK S3 . SECTOR 3 

SETUP s ’&* REGISTER - TRACK (0-33) 

'S' REGISTER - SECTOR (2-3) 

JSR $6A9A 

3. MOVE HEAD TO TRACK 00 
LIMIT t NONE 

SETUP i NONE 
JSR $6B0F 

4. READ DISK SECTOR 
LIMIT i READS 2 SECTOR 

SETUP s HEAD MUST HAVE SEEN POSITIONED ON SELECTED TRACKS 
SECTOR. 

JSR *6 A44 

RETURNS i THE 256 BYTES OF THE SECTOR ARE LOCATED IN THE I/O 
DUFFER WHICH IS AT *A300 - $A3FF 

5. WRITE DISK SECTOR 
LIMIT : WRITES 2 SECTOR 

SETUP : HEAD MUST HAVE BEEN POSITIONED ON SELECTED TRACK & 
SECTOR. I/O BUFFER CONTAINS THE DATA TO BE WRITTEN 

ON THE DISK. 

JSR F6ACS 

6. FORMAT UNIT) s JSR $6839 

7. DIR S JSR $6367 

THANKS TO L. Ct U Z S 33 & Z. X? U C FOR THE INFORMATION. THIS IS SOME 
MORE FROM HIS SMALL BOOK HE SENT ME. THANKS LOUIS 

####**###***######*#**##*#*#####*###*#*#**#*#****#*##*##*****•##* 
J3&SZG 3S& X J3/=iS: Z C 33 Cf X 

THE COMMANDS I AM GOING TO COVER THIS MONTH ARE F2SC & C H Fi * 
2. «SC - THIS IS USED TO CONVERT A SINGLE CHARACTER (A) TO 
ITS INTERGER VALUE (65). 

2. C f-f - THIS IS USED TO CONVERT AN INTERGER VALUE (65) 

TO THE CHARACTER (A) REPRESENTED. THE 
INTERGER VALUE IS THE DECIMAL EQUIVALENT . 

HERE IS A SIMPLE PROGRAM TO SHOW HOW TO USE THEM. 

20 DIM A$(25) . B$ (25) 

20 A$*''ABCD£FGHIJKLNNOPQRSTUVHKYZ" 

200 FOR 1*0 TO 25i PRINT ASC ( A$ ( I ) ) g " ‘-NEAT 1 
200 FOR I* 65 TO 92 : B$ ( I- 65 ) *C HR$ ( 1 ) : NEXT I 
300 PRINT B$ 

320 PRINT’. STOP 

THE PROGRAM AT 200 SHOULD CONVERT THE DATA IN A$ TO THE INTERGER 
VALUE AND PRINT IT. THE PART AT 200 WILL FILL B$ WITH THE SAME 
DATA IN A$ AND THEN 300 WILL PRINT IT. «/9C/£ F U M 
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HHEN YOU GIVE A 'SAVE' COMMAND , HERE" S NHATS GOING ONi 

2. THE COMPUTER CHECKS FOR SPACE ON THE DISKETTE * < 16 FILE LIMIT > 

2. THE COMPUTER CHECKS IN THE DIRECTORY OF THE DESTINATION DRIVE 
IF THE FILE ALREADY EXISTS , IT MILL EE DELETED , NHICH IS VERY 

STUPID // IN THE CP/M SYSTEM , THE HEN FILE IS SAVED ON A TEMPOR- 
ARY NAME AND IF NO ERRORS CCCUREV DURING THE SAVING, THE OLD ONE 
IS DELETED. 2 NILL EXPLAIN A LITTLE LATER HON THE COMPUTER 
DELETES A FILE. 

3. THEN THE COMPUTER BUILDS A TABLE OF ALL THE FREE SECTORS ON 
THE DISKETTE BY LOOKING IN THE ' GAT ' AND SORTS THE SECTORS AS 
FOLLONSt 

THE TRACKS ARE CLASSIFIED IN AN ASCENDANT ORDER. 

THE SECTORS ARE CLASSIFIED IN A DESCENDANT ORDER. 

EXAMPLE OF A SORT i TRACK 0 SECTOR 6 
TRACK 0 SECTOR 7 

TRACK 1 SECTOR 7 

TRACK 1 SECTOR 5 

TRACK 1 SECTOR 4 

TRACK 2 SECTOR 6 

TRACK 4 SECTOR 7 

ETC 

THE ' FSAT f NILL BE PLACED ON THE FIRST SECTOR AVAILABLE. 

4. THE FCB IS PRINTED IN THE DIRECTORY. 

EXAMPLE! IF THE FILENAME IS TEST AND THE FIRST SECTOR AVAIL- 
ABLE IF SECTOR $ ON TRACK 0, THEN THE 'FCB' NILL CONTAIN t 

54 45 53 54 50 20 20 20 00 08 53 00 00 00 00 00 

IT NILL BE PRINTED IN THE DIRECTORY AFTER THE LAST 'FCB'. 

5. THE COMPUTER IS NON READY TO SAVE THE PROGRAM. IT NILL SAVE 
IT BY FILLING UP THE SECTORS IN THE ORDER GIVEN BY THE SORT. 

IN THE LAST EXAMPLE , THE PROGRAM NOULD BE SAVED ON TRACK 0, 

SECTOR 7, TRACK 1 , SECTOR 7 , TRACK 2, SECTOR 5 UNTIL THE END 

OF THE PROGRAM IS ENCOUNTERED . HHEN SAVING , THE COMPUTER KEEPS 
TRACK OF ALL THE SECTORS USED BY THE PROGRAM. NHEN THE SAVING 
IS COMPLETED , THE COMPUTER FILLS UP THE ' FSAT ' NITH ALL THE 
TRACKS AND SECTORS NUMBERS USED BY THE FILE. 

EXAMPLE : THE FILE TOOK THREE SECTORS AND THE AVAILABLE 

SECTORS NERE THE ONES IN THE LAST EXAMPLE . THE FSAT 
NILL CONTAIN 

00 08 00 07 02 07 02 05 00 00 .... 

THE 246 BYTES LEFT IN THE FSAT ARE SET RANDOMLY BY 
THE CONTENTS OF THE I/O BUFFER AT THAT MOMENT. BYTES 
20 AND 21 ARE SET TO 00 TO INDICATE THAT THERE IS NO 
MORE VALID INFORMATION TO BE READ. 

6. THE COMPUTER GOES BACK IN THE 'GAT' TO SET IN THE TABLE THE 
SECTORS USED BY THE FILE. THE 'GAT' ORGANIZATION IS A BIT HARD 
TO UNDERSTAND BUT VERY SIMPLE. ONLY THE FIRST 34 BYTES ARE USED 
ONE FOR EVERY TRACK. THE FIRST BYTE OF THE 'GAT' INDICATES THE 
FREE SECTORS ON TRACK ZERO. THE SECOND BYTE THE FREE SECTORS ON 
TRACK ONE. THE THIRD BYTE TRACK 2 AND SO ON. EACH BIT OF THE 
BYTE INDICATES IF THE SECTOR IS USED OR NOT. BIT SET TO 1 
INDICATES A USED SECTOR. BIT SET TO 0 INDICATES AN UNUSED ONE. 
EXAMPLE i IF THE FIRST BYTE OF THE 'GAT' CONTAINS 3, NHICH IS 
IN BINARY 00000022 , NELL, SECTOR 1 AND 2 ON TRACK 0 
ARE USED. 

W£L./L THOT Z S & L. L. TH£ fZCt&H £ O £2 
T H Z s: MOW TW , T WON MS /LOOTS 


« CALL i 7#46: SHAPE *15: 605UB 8000 

1 HUSIC “5 555532 1 ti II 11 II 12 SI 7 b' 

2 PillS ! C ■ 5 3 5 5 »l B 5 3 2 2 2 1 200" 

3 0*0 

4 Z*3 

3 A*8;B*25:C*0:D*10;E=U:F*12 

6 H»2a 

7 T*48;R*37 

8 J=15:K*7:L*20 

9 0*13: P*27 

10 CALL 1704A 

11 DIM A* (9), KEYS (1) 

12 PRINT * IFRQ6SER?I PRINT : PRINT : PRINT : PRINT : PRINT i PRINT * BY 

13 PRINT : PRINT i PRINT “ J. ALEX DRAUBHON ": PRINT : PRINT 'USE RI6HT KEYBOARD TO HOVE FR06‘ 

14 FOR AN*1 TO 551: NEXT AN 

15 X=16:Y=14 

20 POKE 24378,32 
30 SHAPE *13 

32 COLOR *2: HLIN 0,31,10: HLIN 0,31,11: HLIN 0,31,12: HUN 0,31,13 

33 FOR 6=1 TO 8 

34 HLIN 0,31,8 

35 NEIT 6 
41 COLOR *4 

50 HLIN 0,31,13: HLIN 0,31,14 
60 HLIN 0,31,9: HLIN 0,31,8 
70 COLOR =5: HLIN 0,31,0 

80 PLOT 0,1: PLOT 4,1; PLOT 12,1: PLOT 18,1: PLOT 24,1 
90 PLOT 31,1 

100 IF 1)2 THEN COLOR =8: PLOT 3,15 

101 IF Z>1 THEN COLOR =0: PLOT 1,15 

103 COLOR *5: PLOT 0,2: PLOT 6,2: PLOT 12,2: PLOT 18,2: PLOT 24,2: PLOT 31,2 

105 COLOR =2: VLIN 10,12,31 

106 COLOR *4: PLOT 16,14 

107 POKE 1022, R: POKE 1023, T 

108 IF T*4S THEN T*58:R»R-1 

109 IF R=47 THEN 4000 

111 COLOR =3: PLOT A,D: COLOR *1; PLOT B,E: COLOR =6: PLOT C,F 

111 COLOR *1: PLOT H,Es COLOR =6: PLOT 0,F: PLOT P,F 

112 T*T-1 

113 COLOR =3: PLOT J,D: COLOR *1: PLOT K,E: COLOR =6: PLOT L,F 

114 IF J*31 THEN J=0: IF K=31 THEN K=6: IF L*3i THEN L=0 

115 IF A*31 'HEN A=0 

116 IF H=31 THEN H*0 

117 IF B=31 THEN B=0 

118 IF C=31 THEN C*0 

119 IF 0*31 THEN 0=0 

120 IF P*31 THEN P*0 

126 HUSIC '17' 

127 COLOR *2: PLOT A,D: PLOT 3,E: PLOT C,F: PLOT H,E: PLOT J,D: PLOT K,E: PLOT L,F: PLOT 0,F: PLOT P,F 

128 COLOR =2: PLOT I,Y 

129 LET At= KEYS (» 

130 IF A*=” THEN 190 
140 IF M-'H‘ THEN Y=Y-1 
150 IF A^’S' THEN Y=Y+I 
160 IF A4= , E“ THEN X=X+1 
170 IF A*="N' THEN X*M 

179 COLOR =0 

180 PLOT X,Y 

181 IF X=0 THEN 193 


182 IF X=K THEN 197 

183 IF X=L THEN 199 

184 IF X*0 THEN 199 

185 IF X*P THEN 199 
198 IF X=A THEN 195 

191 IF X=8 THEN 197 

192 IF X=C THEN 199 

193 IF X=H THEN 201 

194 GOTO 285 


195 

IF Y=D THEN 

HUSIC 

■l : 

i li 

3 22 

11 

23 

*:Z=Z-1: 

:X=16:Y=14 

196 

SOTO 191 









197 

IF Y=E THEN 

HUSIC 

■l : 

i n 

3 22 

11 

32 

":Z=Z-i: 

:X=16:Y=14 

198 

60T0 192 









199 

IF Y=F THEN 

HUSIC 

■l ; 

i n 

3 22 

11 

32 

":Z=Z-1: 

:X=16:Y=14 

200 

60T0 193 









201 

IF Y=E THEN 

HUSIC 

•l : 

1 n 

3 22 

11 

32 

*:Z=Z-1: 

:X=16:Y=14 


205 IF 2=0 THEN CALL 17846: PRINT ■ THE END *: PRINT : PRINT i PRINT : PRINT : GOTO 5000 

206 IF 2=2 THEN COLOR =4: PLOT 5, 15 

207 IF 2=1 THEN COLOR =4: PLOT 3,15 

209 IF Y<3 THEN 0=Q+1 

210 IF Y<3 THEN HUSIC "5653667451 134' 

212 IF Y<3 THEN Y=!4:X=16 

300 COLOR =4: HLIN 0,31,8: HLIN 0,31,9 
315 A=A+i:B=B+isC=C+l:H=H+l 

311 J=J+1:K=K*1:L=L+1 

312 0=0+1 
113 P=P+1 
320 GOTO 105 

4000 IF Q=5 THEN GOTO 4008 

4001 PRINT "YOU’VE RUN OUT OF TINE l!"!!!’: PRINT "YOU JUST LOST A FROG." 

4002 60T0 4050 

4009 IF 203 SOTO 4001 

4009 CALL !7fi*6 

4010 print ’imiitittiiijittttitttmmit’: print "timmmtiBONusitimtittm" 

4011 HUSIC “5 30 345 30 30 100 5 30 343 50 50 4000 120 »10 70 68 50 40 30 20 10000 s 
4020 SOTO 4070 

4056 FOR 1=1 TO 20: HUSIC "7 10 " 

4055 NEXT I 
4060 Z=Z-1 
4070 T=48:R=57 
4100 SOTO 10 

5000 PRINT " YOU SAVED "jO;" FROGS ! 

5010 HUSIC "5 5 5 5 5 3 2 1 tl 11 II *1 12 11 7 6 5 5 II 6 7 II 12 7 11080000000 s 
5020 PRINT "PRESS ’ENTER’ KEY TO RESET BAHE" 

5025 Al= KEYS (1) 

5030 IF A*=" ! ' THEN 60TD 0 
5050 SOTO 5625 

8000 COLOR =6: VLIN 1,5,1: HLIN 1,4,1: HLIN 1,4,3: REH *F" 

8010 COLOR =2: VLIN 8,13,4: HLIN 4,8,8: HLIN 4,8,10: PLOT 8,9: PLOT 6,11: PLOT 7,12: PLOT 8,13 

8820 COLOR =1: HLIN 8,11,3: HLIN 8,11,7: VLIN 3,7,8: VLIN 3,7,11 

8030 COLOR =8: HLIN 12,15,0: HLIN 12,15,5: VLIN 0,5,12: VLIN 3,5,15: PLOT 14,3 

8040 COLOR =4: HLIN 15,19,10: HLIN 15,19,15: VLIN 10,15,15: VLIN 13,15,19: PLOT 18,13 

8050 COLOR =7: VLIN 6,11,21: HLIN 21,25,6: HLIN 21,25,8: HLIN 21,25,11 

8060 COLOR =5: VLIN 0,5,26: HLIN 26,31,0: HLIN 26,31,2: PLOT 31,1: PLOT 28,3: PLOT 29,4: PLOT 30,5: PLOT 31. 
8100 HUSIC' "5 3 1 II 7 6 5 II 3 2 5 * 

8110 HUSIC " 
me RETURN 


1 REN ’PROSRAN SUBMITTED BY CHUCK CLANCY* 

2 RER ’THIS IS A NUMERIC SORT ROUTINE' 

5 POKE 24378,38 

8 DIN Kl(l) 

21 CALL 17146: POKE 41961, 1.99 

39 PRINT ; PRINT : PRINT 'SORT R U N N I N 6* 

4# PRINT : PRINT 'SETTIN6 UP THE ARRAY 1 
39 DIN A (49) 

69 FOR 1*9 TO 39:A(I)*I: NEXT I 
79 CALL 17946: POKE 45969,1.9 
89 PRINT : PRINT : PRINT 

85 1=0 

86 PRINT ’ENTER -9999 TO SORT* 

99 INPUT ’ENTER NUMBER— ’.Ad) 

95 IF AID =-9999 THEN 1=1-1: 60T0 200 

100 1 = 1+1 
119 60TO 99 

200 CALL 17046: POKE 40960,2: PRINT “WAIT PLEASE’ 

201 PRINT TH TRYIN6 SOQOO HARD* 

205 FOR J=0 TO 1-1 

219 FOR K*J+l TO I 

220 IF A(J)>*A(K) THEN HOLD=A ( J ) : A ( J ) =A (K ) : A ( K ) =HOLD 

230 NEXT K 

240 NEXT J 

250 FOR K=0 TO I: PRINT A (K) 

260 IF K=14 THEN INPUT “TYPE <RTN> FOR MORE’,N$ 

270 NEXT I 

280 PRINT •MORE'’ 6 

290 IF KEY! (i)=*Y* THEN FOR X*i TO 20: NEXT X: SOTO 20 

295 IF KEY! (0)=*N* THEN FOR X*1 TO 20: NEXT X: SOTO 310 

300 60T0 290 

310 CALL 17046: POKE 40960,2: PRINT "SORT COMPLETE*: PRINT * BYE’: END 


LONELY COMPUTERS 



ELAINE HClM. 39 HORTON PLACE 
EAST ORANSE, NEN JERSEY #7117 
I AH A SEMI OR IN H1SK SCHOOL. 

I PLAN TO SO TO COLLESE IN THE 
FALL AND MAJOR IN ENGINEERING. I 
HAVE A 16K IH-1 COMPUTER WITH 
PRINTER, DISK DRIVE fc MODEM. 


mmtimtiimttmtimtmi 

DEBORAH FISCHER, 1 3008 BAYLOR ST 
BAKERSFIELD, CALIFORNIA 93305 
I AM A 24 YEAR OLD HOUSEWIFE! 

AND ENJOR ROLE PLAY I NS SAMES 
LIKE DUN6E0NS AND DRA60NS. 
ittimmmtmmmmmm 
RON BIS5EY, 604 ALONQN DRIVE 
GILLETTE, WYOMING 82716 
307-686-0886 

mtmtmmmmtmmtmt 

RON FORBIS, 2418 CARMEL RD 
BIRMINGHAM, ALABAMA 35235 
205-854-3963 

HAM RADIO OPERATOR CALL SI6N 
NW4M , WISH TO CONTACT OTHER 
HAM/APF USERS. 


REB "PRD6RAB SUBBITTED BY CHUCK CLANCY, THIS IS A ALPHA SORT* 
POKE 24578,36 


2 mmi) 

3 BIB NULLS (20) 

4 FOR 1=0 TO 20:NULLt(!)=" 

5 CALL 17146: POKE 40960,1.9 

10 BIB AS (30, 21) 

11 DIB HS (20) 

32 FOR 1=0 TO 20: AS (1,1) =NULL* 

20 CALL 17046 

21 HI*" 

30 POKE 40960,1.9 

40 1*0 

45 PRINT s PRINT : PRINT 

50 PRINT : PRINT : PRINT 'SORT R U N N I N S' 

65 PRINT s PRINT ’ENTER NAHES — 999 TO QUIT’ 

70 B=0 

80 INPUT AS(3,20) 

90 B»B*i 
92 C=B-1 

95 IF AS (C, 20) ='999* THEN B=B-l: GOTO 200 
108 SOTO 60 

200 CALL 17046: POKE 40960,2: PRINT : PRINT : PRINT 'BAIT PLEASE’: PRINT ’SORTING’ 

201 FOR 1=0 TO B-l 
210 FOR K*I+1 TO B 

220 IF A#(J,20)>=AS(K,20) THEN HS=AS(I,20):AS(I,20)=AS(K,20):AS(K,20)=HS 

233 NEXT K 

240 NEXT I 

258 FOR 1=1 TO B 

260 PRINT AS (I, 20) 

265 IF 1=14 THEN INPUT ’TYPE <RTN>’,NS 
270 NEXT I 

280 INPUT ’TYPE (RTN) TO BUIT’.NS 

281 IF NS=” THEN 290 

282 NS(0)*”:NS(1)=”: 60T0 5 

290 PRINT : PRINT ’SORT COBPLETED': PRINT : PRINT ’ BYE': END 


TAPE 810,1/7,0 72,0/3 i 1/4 
TPESE TAPES COM R1H PROSRRHS 

smum m chuck clancy 
for me club, urn n m Mima 

HE SIDE SPEC1RL THANKS 
TO CHUCK. 

TAPE MB 

BIRECT0R1 
SMILES HIP 
SUk BUSTERS 
SHRPE LORBER 
fiu-n-n 

TAPE ill 

SPELL-IT 

SOCKETS 4 STRRS 

HEXOM TO SCkEEH 

kRk LOUD OF SOCKET PRTROL 

amis HMS 


HF.T FOLKS HESE IS A LIST OF 
HROSkRHS THRT Hi HOVE AVAILABLE 
ON TAPE. KHEH ORBER1H6 PLikSl 
SPECIF'/ THE 2 THRT YOU HRM 
OH 10US TRPE FOR THE ti.99. 

THRHKS EDITOR 

TAPE 91 

CEM-FUH psosm 
HI RSS2—H1 SES HELPER PROSRRH 
HI HESS— HI SES HELPES PkOSSRH 
HEX-BEC—HEX-BEC OR SEC-HEX 

HUSIC FlIH PkOSSRH 

TRPi § 2 

KEIklC—KElklC 4 STRHB. COHO. 
SPEU—6RHE PkOSSRH lit SESHRH 
HI SESl—Hl SES HELPER PkOSSRH 
SHIRT HP— USE CRSSETTE FOR SRTR 
HERH—F1SURE THE HERS Of SI'S 
TAPE tl 

BLRCKJK---8LRCKJRCK 6RHE 
CRP1TOL—STRTE CRP1TOL RHSHERS 
fROESER—SIHPLE BUT BOOS SRHE 
LETHRCH—S1HPLE LITTER HRCH1HE 
W LOSO—BISPLR/S PICTURE 
TAPE #4 
HRSICSQ—Sm 
BRTTLEf—GRHE 
SPML2—MSBRL BISPLR1 
mPm—SIKPLE TRX PROSRRH 
RUB10RC--RUBU RECORMHS PROS. 
TRPi #5 

1* CUE— mil 4 HULT1 PROS. EX. 
TOHETST--HRKES LOTS OF HOISE 
LETTPRO—kHOlMR LETTER PROSRRH 
BRHKREC—SIHPLl SRHK BRL PROS 
SOULETT— RHOISER SRHE 
TRPE 86 

SRULU—COHUERTS SRLS RHS LITS 
RECIPES— RECIPE SECOSB PROSRRH 
kklH —HATH PROSRRH 
BIRTHDR—PLMS i S1SPLRT B OAT 
EH6LISH—SWlE EHSL1SK LESSOR 


TRPI 912 

TRPi 97 

SKETCH SHRPES 

SHRKE —RHOTHER SRHE 

BRS1C SHRPE HOOES 

RLPHRS —HI RES RLPHR CHRRRCW 

HULT1PL1CRTIOH 1RBLES 

HEMEST—HEHORf JEST PROSRRH 

SOUHd LOOPS 

STROBE --LOTS OF FLRSH 4 POP 

BRTR RECORBS 

TRPE 98 

TRPE 0/3 

lemSB—TRX PROSRRH 

RLPHR-SORT 

FORCRST—FUH PROSRM 

HUHBER SORT 

SCREEH — SCREES IHRSE PROSRRH 

HEX TO SEC 

HRTCHES—IS HRTCStS lr ,FUH 

SEC TO HEX 

SO ROOT—BRSIC SO ROOT 

KE/BORRB SKETCH 

TRPE 99 

TRPE 0/4 

SPRCEBL—SPRCE DUEL SOOB 

6899 PEEKER 

HI RES'!-— HI RES HELPER PROSRRH 

SRRRSE SRLE 

TRPECRT---TRPE CR1RLOS PROSRRH 

SOUHB EFFECTS 

SRRPH1C—BU1LB SHRPES 4 O/SPLAT 

PRBBLE SKETCH 

HU HP US— SRHE 


0 REN “THIS PROGRAM MAS SUBMITTED BY GLENN JONES AND MILL 3E A 6REAT HELP FOR NI-RES" 

1 CALL 17*46 

2 PRINT “WITH THIS PR06RAH YOU MILL BE ABLE TO BUILD NODE I HI-RES SHAPES AND THEN DISPLAY THEN.' 

3 PRINT ’THIS PROGRAM IS SET UP TOO USE JUST ONE SET OF THE COLORS AVAILABLE BUT CAN BE CHANGED Tu USE ALL" 

4 PRINT "MHEN IT ASKS FOR THE BYTE IT NEEDS THE FOUR COLORS YOU WANT IN THAT BYTE OF THE SHAPE/ 

5 INPUT "HIT RETURN', NS: PRINT 'YOU CAN ONLY USE 6 = 6REEN, Y « YELLOW, B * BLUE AND R = RED. " 

6 PRINT "AFTER YOU KEY IN THE ALL 16 BYTES IT WILL DISPLAY THE CHAR- ACTER THAT YOU HAVE BUILT.” 

7 PRINT "TO RETURN TO THE PROGRAM HOLD ’RETURN’ AND IT MILL PRINT OUT THE DECIMAL VALUES FOR THE SHAPE" 

8 PRINT “AND THESE CAN BE PUT IN A DATA STATflENT TO USE IN YOUR PRO0RAIUF THE OTHER COLORS ARE WANTED' 

9 PRINT "JUST ADD 64 TO EACH BYTE/: INPUT “HIT RETURN", NS 
18 POKE 24578,38: CALL 17846: DIN L(4),S{63),B6$(i),B$(3) 

12 INPUT "HON MANY SHAPES (1-4) ",NS: PRINT : PRINT 

13 FOR Z=1 TO NS: PRINT "SCREEN LOC. FOR SH »"| Z;" (8-383)";: INPUT L(Z): NEXT 

15 PRINT "WHAT COLOR OF BACKGROUND:*: PRINT " GREEN <S)“: PRINT " YELLOW <Y)“: PRINT “ BLUE (B)": PRINT " RED 
INPUT 88* 

16 IF B6*(0)«“Y" THEN BS=85: 60T0 28 

17 IF B6$(8) b "B" THEN 86*170: SOTO 28 

18 IF THEN B6=255; SOTO 20 

19 B6*f; IF B8*(0)OV THEN 15 

20 FOR Y=1 TO NS: CALL 17046: PRINT "SHAPE 8 “;Y: Fl\l Z*Yii6-16 TO Y*16-1:B*=" 

21 BN=Z: SOSUB 3000: PRINT “BYTE *;BN;’= INPUT 35 
30 R=0: IF B»(8)**6" THEN 35 


31 

IF 

S*(*)=“> 

" THEN 

R=8+64: 

60T0 35 

32 

IF 

B*(0)=*B 

" THEN 

R=R+128 

: GOTO 35 

33 

IF 

B?<0)«"S 

!" THEN 

R«R+192 

!: SOTO 35 

34 

GOTO 55 




35 

IF 

Bill)®"!: 

i" THEN 

40 


36 

IF 

Bid)*"? 

* THEN 

R*R+16: 

SOTO 40 

37 

IF 

B*(1)»"E 

1* THEN 

R=R+32: 

SOTO 40 

38 

IP 

64d)*"R 

‘ THEN 

R*RH6: 

GOTO 40 

39 

8070 55 




40 

IF 

8*(2)="6 

‘ THEN 

45 


41 

IF 

B*(2)=*’l 

" THEN 

R*R+4: 

SOTO 45 

42 

IF 

B*(2)="B 

" THEN 

R=R+8: 

SOTO 45 

43 

IF 

3$'.2)="(i 

1* THEN 

R«RH2: 

SOTO 45 

44 

GOTO 55 




45 

IF 

Bl(3)="E 

i’ THEN 

50 


46 

IF 

BI(3)*"Y 

" THEN 

R=R+1 : 

SOTO 50 

47 

IF 

B*(3)*"E 

1" THEN 

R»R+2: 

SOTO 50 

48 

IF 

B$(3)*"R 

" THEN 

R*R+3: 

SOTO 50 

49 

GOTO 55 





50 S(Z)=R: NEXT ; NEXT ; 6QT0 88 

55 PRINT "INCORRECT-TRY AGAIN": SOTO 21 

80 POKE 8193,60: POKE 6194,153 

35 FOR 2=512 TO 527: PKE Z..B6: NEXT 

90 FOR 2=528 TO 526+i6lNS-l: POKE Z,S(Z-52B): NEXT 

180 FOR 1=0 TO 383: POKE 1,0: NEXT 

110 FOR 1*1 TO NS: POKE l(I>, I: NEXT 

200 If KEYS (*)=““ THEN 200 

201 POKE 8194,30 

2000 PRINT : PRINT "SHAPE 1": FOR J=0 TO 15: PRINT S(J);",";: NEXT : IF NS<2 THEN 4000 

2002 PRINT : PRINT "SHAPE 2": FOR J=16 TO 31: PRINT S(J!;"/;: NEXT : IF NS<3 THEN 4M6 

2104 PRINT : PRINT ‘SHAPE 3 : FOR J=32 TO 47: PRINT SU); "/;: NEXT : IF NS<4 THEN 4000 

2006 PRINT : PRINT "SHAPE 4 : FOR J=48 TO 63: PRINT S(J)j "/;: NEXT : SOTO 4000 

3802 IF EN)15 THEN BN*BN-16: BOTO 3000 
3801 RETURN 

4001 PRINT : PRINT "1-NEM", "2-DISPLAY", "3-STOP";: INPUT Q: ON B 60T0 12,80,9008,4008 
9000 END 


(R) 


DUE TO THE COST OF PRINTING WE WILL HAVE TO REQUEST THAT THE 
MEMBERS AND NON-MEMBERS SUBMIT ONLY ONE AD PER MONTH AND KEEP 
THE AD AS SMALL AS POSSIBLE. THE COST WILL BE 25 CENTS PER LINE 
FOR MEMBERS AND 75 CENTS PER LINE FOR NON-MEMBERS. ADS WILL BE 
PUBLISHED IN THE ORDER WE RECEIVE THEM. ANY LEFT OVER WILL BE 
PUT IN THE NEXT MONTHS AD. DEADLINE FOR ADS IS THE 20TH-! !!!!!!!! 

THE WANT ADS ARE INTENDED FOR PERSONAL USE BY THE MEMBERS AND 
NON-MEMBERS WHO WISH TO SELL USED HARDWARE OR SMALL PROGRAMS. 

THEY MOT X NTENDED FOR 

COMMERICAL USE!- IF YOU THINK YOU QUALIFY FOR A COMMERICAL 
AD PLEASE WRITE AND WE WILL SEND YOU A STATEMENT OF OUR POLICY 
AND THE PRICES. THANKS EDITOR 


WANTAD5 WANTADS 
mmmtttfifmmsmmmt 

NUMBER FREQUENCY ANALYSIS 

ENTER ANY LIST OF NUMBERS OF 4 
DIGITS OR LESS AND YOUR COMPUTER 
KEEPS A RUNNING RECORD OF WHICH 
DISITS FELL WHERE AND HOW MANY 
TIMES. SAVES TO TAPE, RECALLS 
FROM TAPE. BREAT FOR LOTTERIES, 
ANY LIST OF NUMBERS. SEND IS. If 
TO CRATAR INSTRUMENTS, PO BOY 
38 , WOODBURY HEIGHTS, N.J. 08097 
ttmmtummmmttitmtt 
INTRODUCING IALPHA CENTURION! 

IF AST ACTIONIARCADE QUALITY! 

8K*H I - RE 5 15 A CH L AN6UA6E t BATTLE 
DIVING ALIENS AND SAVE THE 
PLANET NIBAR FROM DESTRUCTION! 

tEXCELLENT SSAPHICSiSQUNQIKIDS 
(AND ADULTS) LOVE IT. CASSETTE 
SEND CHECK OR MONEY ORDER TD: 
6EQRSE K ARAB IN 
RD #1 BOX 447 
BELLE VERNON PA 15112 


HEY FOLKS THE AD IS NOT EXAGGER- 
ATING. THE SAME IS VERY GOOD! ! 

EDITOR 

mmmttmmmmmmm 

ICONCENTRATION! A COMPUTERIZED 
VERSION Or THE CARD SAME. GREAT 
MEMORY EXERCISE. AGES 5 TD AMT 
14.95 SEND MO TO JQE DOMES RT 4 
BOX 84A, COFFEYVIllE, KS 67337 

fmmtmmmmmmmm 

SYSTEM ROM DISASSEMBLED? ALL 14K 
NOT COMMENTED, BUT ALL BASIC 
STATEMENT ROUTINES ARE LABELED. 
USE TO CALL ROM ROUTINES OR AS A 
QUIDS FOR YOUR OWN. I1MI FOR 
OVER 7IM LINES OF CODE ON A 
45 PAGE, 132 COLUMN PRINTOUT. 
SEND CHECK OR MONEY ORDER TOi 
JEFF RICHARDSON, !I4 AUSTIN AVE. 
SYRACUSE, NEW YORK 13217 


titimimiiitmmtttiitiitii 
FOR SALE: IM-1 LIKE NEW, INCLUD- 
ING , OWNERS MANUAL, INST MANUAL 
AND MA-509 CASSETTES, TECHNICAL 
REFERANCE MANUAL, HA-390 BUDGET 
MANAGER II, NA-425 ELECTRONIC 
FILES, HA-575 SPACE DESTROYERS, 
MS- IMG BACK6AHM0N, H6-1P10 UFO/ 
SEA MONSTERS/ETC., H6-1I11 PIN- 
8ALL/DUN6EGN HUNT, CLUB LETTERS, 
FROM BEGINNING, SUBSCRIPTION 
GOOD THROUGH DEC 1983. 

R.L. NORRIS, 2612 FORRESTAL AVE, 
ST ALBANS, WV 25177, 

394-727-6436 All FOR 8259 SEND 
CERTIFIED CHECK 

mmtmmmmmmttmu 

FOR SALEiM 23K APF IM-1 COMPUTER 
WITH THE FOLLOWING TAPES: AN AD- 
VENTURE IN MURDER, DEPTH CHAR6E, 
SPACE DESTROYERS, STARSHIP, ROAD 
RUNNER, CASY (ASSEMBLER), FINANCE, 
GRAPHIC PRIMER, HUEY (SUPER CAL- 
CULATOR) W/fWHUAL AND R EISMAN’S 
SECRr MANUAL. A BARGIN AT $325. 
CALL OR WRITE: J COATES 

13 TEMPLETON RD 
WALLINGFORD, CT 
06492 

AFTER 6 PM EST 893-265-5853 

itmmmtmmmimmmt 

IIENTRAPt! TRAP YOUR OPPONENT 
BEFORE HE TRAPS YOU. YOU CONTROL 
A M0VIN6 WALL WHILE TRYINS TO 
FORCE YOUR OPPONENTS WALL TO RUN 
INTO ITS SELF (LIKE SURROUND). 
IT’S A GAME OF QUICKNESS, SKILL, 
AND STRATEGY. SEVEN DIFFICULT 
LEVELS. ONLY I4.M BRETT LECROIX 
4941 BUFFWOOD WAY, SACRAMENTO, 
CALIFORNIA 95841 
itmimimittmimimmti 


£. &N£SC'M£ CCtMPU T££iS 
SO MANY PEOPLE HAVE REQUESTED TO BE PUT IN TOUCH WITH OTHER IM-1 
OWNERS THAT WE DECIDED TO ADD THIS PAGE DEVOTED TO THEM. WE 
WOULD NOT PRESUME TO GIVE OUT ANYCNES NAME OR ADDRESS WITHOUT 
THEIR EXPRESS PERMISSION TO DO EO. IF YOU WISH TO BE CONTACTED, 
ALL YOU NEED TO DO IS FILL OUT THIS SECTION AND SEND IT TO US. 
WHO KNOWS, THERE MAY BE SOMEONE DOWN THE BLOCK WHO'S DYING TO 
MEET YOU. 


CHECK HERE IF YOU DO NOT WANT THIS INFORMATION PUBLISHED! ! ! ! 


NAME- *TELL US A LITTLE ABOUT YOURSELF 

ADDR= * 

# 

CITY- * 

% 

STATE® — * 

# 

ZIP- * 

* 

PHONE* * 

# 


73L. jQNA' M&MT 

EACH LINE CAN CONTAIN 32 CHARACTERS INCLUDING SPACES. 


LINE 1. 


LINE 2. 
LINE 3. 


LINE 4. 
LINE 5. 


LINE 6. 


Lllfe 7. 




LIp5e--9. 

1 


LINE 10. 


DUE TO THE COST OF PRINTING WE WILL HAVE TO REQUEST THAT THE 
MEMBERS AND NON-MEMBERS SUBMIT ONLY ONE AD PER MONTH AND KEEP 
THE AD AS SMALL AS POSSIBLE. THE COST WILL BE 25 CENTS PER LINE 
FOR MEMBERS AND 75 CENTS PER LINE FOR NON-MEMBERS. ADS WILL BE 
PUBLISHED IN THE ORDER WE RECEIVE THEM. ANY LEFT OVER WILL BE 
PUT IN THE NEXT MONTHS AD. DEADLINE FOR ADS IS THE 20TH ! !!!!!!!! 
THE WANT ADS ARE INTENDED FOR PERSONAL USE BY THE MEMBERS AND 
NON-MEMBERS WHO WISH TO SELL USED HARDWARE OR SMALL PROGRAMS. 
THEY ARE NOT INTENDED FOR COMMERICAL USE. IF YOU NEED TO RUN A 
LARGE AD PLEASE WRITE AND WE WILL SEND YOU A STATEMENT OF OUR 
POLICY AND THE PRICE. THERE WILL- BE ^ FULL 
NAME MAILING IN MARCH 1 ! ! ! ! 
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IM-1 in a MILLION 


PO BOX 1411 


SPRINGDALE 
ARKANSAS 72764 
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